home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / comm / tcp / SynClock45.lha / SynClock next >
AmigaDOS Script File  |  1997-07-25  |  779b  |  22 lines
  1. .KEY OFFSET/A,SAVE/S
  2. .BRA {
  3. .KET }
  4.  
  5. ; $VER: SynClock 4.5 (25.7.1997)
  6. ;
  7. ; Copyright © 1997 Robert Grimm
  8. ;
  9. ; Set your Amiga clock from the internet!
  10.  
  11. Assign >NIL: TCP: EXISTS
  12. IF Warn
  13.     Echo TCP: not mounted.
  14.     Quit 10
  15. EndIf
  16.  
  17. RX "Address command;If Open(h,'TCP:132.163.135.130/14','R') then;do;l=Readln(h);l=Readln(h);Call Close(h);End;Else;do;Say 'Service not present';Exit 10;End;Parse var l j d t o l;Parse var d y'-'m'-'d;w='JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC';w=Word(w,m);c=d'-'w'-'y;Address command 'C:Date 'c;Parse var t h':'m':'s;If o=50 then h=h+1;h=h+{offset};Select;When h<0 then;do;h=h+24;c='YESTERDAY ';End;When h>23 then;do;h=h-24;c='TOMMORROW ';End;Otherwise c='';End;c=c||h':'m':'s;Address command 'C:Date 'c;Exit"
  18.  
  19. IF {SAVE} 
  20. C:SetClock SAVE
  21. EndIF
  22.